Attribute VB_Name = "Startup"
Option Explicit

Public gLogger As New Logger
Public dLogger As Object

'Private gDNotifier As New DebugNotifier
'Private gX As New XMLNotifier
Private gAssert As New LocalAssertions

Public Sub main()
Dim t As New HiResTimer
Dim r As New Runner
r.setAssertions gAssert

t.Start

'r.Add gDNotifier
'r.Add gX
r.run aForm 'SponsorObject

t.Halt
'Debug.Print Format$(t.Elapsed, "#0.0000 seconds")
'Debug.Print gX.xml
End Sub

Public Function assert() As LocalAssertions
Set assert = gAssert
End Function

